home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 47.7z / BS1 part 47 / Personal Paint v4.0 (1994)(Cloanto)(M3)(Disk 1 of 2)[WB].7z / Personal Paint v4.0 (1994)(Cloanto)(M3)(Disk 1 of 2)[WB].adf / PPaint_Prefs / PP_Locale / PP_DiskSet < prev    next >
Text File  |  1993-12-02  |  2KB  |  40 lines
  1. .Key langcode
  2. .bra {
  3. .ket }
  4.  
  5. ; Copyright (C) Cloanto (R) 1992, 1993  All Rights Reserved  Reproduction Prohibited
  6.  
  7. Execute PPAINTCONFIG:PPaint_Prefs/PP_Locale/PP_DiskReset
  8.  
  9. If EXISTS PPaint:PPaint_Prefs/PP_Locale/PP_WriteOK
  10.  
  11.   Delete PPaint:PPaint_Prefs/PP_Locale/PP_WriteOK QUIET
  12.   PPaint:c/Print >PPaint:PPaint_Prefs/PP_Locale/{langcode} ";"
  13.  
  14.   If EXISTS PPaint:PPaint_Prefs/PP_Locale/PP_SET_ENG
  15.     Rename PPaint:PPaint_Prefs/PP_Locale/PP_InstallSub.eng PPaint:PPaint_Prefs/PP_Locale/PP_InstallSub
  16.     PPaint:c/Print >> PPaint:PPaint_Prefs/Startup_A.set "LANG = 0"
  17.   EndIf
  18.  
  19.   If EXISTS PPaint:PPaint_Prefs/PP_Locale/PP_SET_DEU
  20.     Rename PPaint:PPaint_Prefs/PP_Locale/PP_InstallSub.deu PPaint:PPaint_Prefs/PP_Locale/PP_InstallSub
  21.     PPaint:c/Print >> PPaint:PPaint_Prefs/Startup_A.set "LANG = 1"
  22.   EndIf
  23.  
  24.   If EXISTS PPaint:PPaint_Prefs/PP_Locale/PP_SET_ITA
  25.     Rename PPaint:PPaint_Prefs/PP_Locale/PP_InstallSub.ita PPaint:PPaint_Prefs/PP_Locale/PP_InstallSub
  26.     PPaint:c/Print >> PPaint:PPaint_Prefs/Startup_A.set "LANG = 2"
  27.   EndIf
  28.  
  29.   If EXISTS PPaint:PPaint_Prefs/PP_Locale/PP_SET_FRA
  30.     Rename PPaint:PPaint_Prefs/PP_Locale/PP_InstallSub.fra PPaint:PPaint_Prefs/PP_Locale/PP_InstallSub
  31.     PPaint:c/Print >> PPaint:PPaint_Prefs/Startup_A.set "LANG = 3"
  32.   EndIf
  33.  
  34.   If EXISTS PPaint:PPaint_Prefs/PP_Locale/PP_SET_SWE
  35.     Rename PPaint:PPaint_Prefs/PP_Locale/PP_InstallSub.swe PPaint:PPaint_Prefs/PP_Locale/PP_InstallSub
  36.     PPaint:c/Print >> PPaint:PPaint_Prefs/Startup_A.set "LANG = 6"
  37.   EndIf
  38.  
  39. EndIf
  40.